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C IDENT ('V04-000'), 
{ ++ 


PARR RRRAAAAASASAAL ASE LALALASEALAS ALARA SAL ARES ERAS ALAS AREER RES R EERE ASRS SS SS 


** COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
** DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
** ALL RIGHTS RESERVED. 


al pal ia eertent IS wratta UnoeR Ay SCENSE AND MAY BE USED AND gt 


® 
® 
® 
& 
® 
® 
® 
N OVE COPY OTICE. SOF TWAR OTH . 
sr COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 10 ANY 
® 
es TRANSFERRED. * 
® 
** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
** CORPORATION. * 
® 
* 
® 
*® 
® 
® 


** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PPTTTTITITITITITITITITITITILIT TITTLE TTT tiiiiiiiitiie 


FACILITY: VAX/VMS EDF (EDIT/FDL) UTILITY | 


ABSTRACT: This facility is used to create, modify, and optimize 
FDL specification files. 


ENVIRONMENT : NATIVE/USER MODE 


AUTHOR: Ken F. Henderson Jr. 
CREATION DATE: 27-Mar-1981 
MODIFIED BY: 
v03-007 RRB0018 Rowland R. Bradley 10 Mar 1984 | 
Changes for signaling errors when user is 
v03-006 KFHO006 Ken Henderson 8 Aug 1983 
Changes for seperate compilation. 
v03-005 KFHOOOS Ken Henderson 14 Apr 1983 


Changed Lib$wait(5.0) to (3.0). 
Added display of ‘TOKEN’ on errors. 


v03-004 have es Ken Henderson 26 Jan 1983 
Fixed signal-vector before SPUTMSG 
calls by suatracting of PC/P = 
Also changed SPUTMSG of ‘‘file not found 


or 
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to ''new file will be created’. | 


v03-003 KFHOO03 Ken Henderson 20 Jan 1983 
Removed references to DASH. 
v03-002 KFHOOGe ender 31 March 1982 
pedi tree. RNS . INPUT. "COND “HANDLER to fix 
FT? Q 968 ~ 
v03-001 KFHOOO1 en Hender 23-Mar-1982 


OTs ‘tak ona” INPUT COND “HANDLER to fix 
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TP ENVIRONMENT ("LIBS:EDFCHF'), 
75 INHERIT ( 
7 *SYSSLIBRARY:STARLET', 
78 *SHRL IBS: FDLPARDEF ', 
0079 "LIBS: EDFSDLMSG', 
0080 IBS$:EDFSTRUCT’. 
0081 "LIBS: EDFCONST', 
008 *LIBS:EDFTYPE', 
se TUBE Mehe 
0085 ; 
0086 
0087 
88 MODULE EDFCHF; 


| 
| 
| 
; 
} 
| 
| 
| 
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v04-000 
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{ ++ 

CTRLZ_COND HANDLER == Handle user typing control/Z. 

This routine checks for control/Z signal from sys$input_cond_handler 
and unwinds to the top level if found. 

It also is the outermost handler and does a putmsg if it wasn't a “2. 
CALLING SEQUENCE: 

LIBSSIGNAL; 

INPUT PARAMETERS: 


SIGARGS 
ME CHARGS 


IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 


SIGARGS 
ME CHARGS 


IMPLICIT OUTPUTS: 
none 
ROUTINES CALLED: 


LIBSMATCH_COND 
SYSSUNWIND 


ROUTINE VALUE: 

SSS$_RESIGNAL if unable to handle error. N/A if able (ignored on unwind). 
SIGNALS: 

Resignals if unable to handle error. 

SIDE EFFECTS: 

none 

e- ) 
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CASYNCHRONOUS) FUNCTION hie HANDLER ( 


SIGARGS : SIGARR; 
VAR MECHARGS : MECHARR 
) : INTEGER; 
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| 
5 
| 


BEGIN 
{ + 
re already unwinding, skip everything. 
IF NOT ¢ 
5 IG SAA TCR COM (SIGARGSC1],SS$_UNWIND)) 


BEGIN 


ee el eel el ld 
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{ + 

Check for the “2 ‘error’. 

IF NOT ( 

(LIBSMATCH_COND (SIGARGSC1],EDFS$_CTRLZ)) 
) THEN 

BEGIN 


eit the user what the disaster was. 
saree ce daganste) ~ 2 
SIGARGSCOJ := SIGARGS(O] + 2; 
Gelt for the user to see what happened. 
LIBSWAIT (3.0); 
END; { IF NOT LIBSMATCH_COND } 
hut the terminal straight. 
And close any files open to the terminal. 
IF NOT AUTO_TUNE THEN 
BEGIN 
EDF SRESET_SCROLL; 
IF DEST_IS_TERMINAL THEN 
CLOSE (FDL_DEST,ERROR := CONTINUE); 
END; 


{ + 
Unwind (pop up) to the caller of the handler establisher. 
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- } 

SUNWIND; 

{ + 

The function value is ignored if we did an unwind. 
CTRLZ_COND_HANDLER := SS$_RESIGNAL; 


END; { IF NOT UNWINDING } 
END; _{ CTRLZ_COND_HANDLER } 
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{ ++ 


RMS_INPUT_COND_HANDLER == Handle input file errors. 

This routine checks for recoverable input errors from RMS files. 
CALLING SEQUENCE: 

LIBSSIGNAL; 

INPUT PARAMETERS: 


SIGARGS 
ME CHARGS 


IMPLICIT INPUTS: 


Source Listing 


TAB 
ANS1_REVERSE 
OUTPUT PARAMETERS: 


SIGARGS 
ME CHARGS 


IMPLICIT OUTPUTS: 


RMS_INPUT_ERROR 
SySSOUTPUT:, if the error is one we handle. 


ROUTINES CALLED: 

PT BSMATCH COND 

SYSSUNWIND 

ROUTINE VALUE: 

SSS_RESIGNAL if unable to handle error. N/A if able (ignored on unwind). 
SIGNALS: 

Resignals if unable to handle error. 

SIDE EFFECTS: 

none 
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CASYNCHRONOUS] FUNCTION we 


VAR 
EJLENAME PTR 


| 
} 
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COND_HANDLER ( 

STGARGS : SIGARR; 

VAR MECHARGS : MECHARR 
) : INTEGER; 


: DESCRIP 
EVERITY : INTEGER 
W_SEV : INTEGER 


BEGIN 


{ + 

ig alias already unwinding, skip everything. 
IF NOT ¢ 

‘yeh cect (SIGARGSC1],SS$_UNWIND)) 


BEGIN 
RMS_INPUT_ERROR := TRUE; 


{ + 
Find out the severity of the error. 


SEVERITY := LIBSEXTZV (STSSV_SEVERITY,STS$S_SEVERITY,SIGARGSC1)); 


{ + 
Show the user what's wrong, unless it'll come out on exit anyway. 


IF SEVERITY <> STSSK_SEVERE THEN 


BEGIN 
SIGARGSCO) := SIGARGS(OJ - 2; 
SPUTMSG (SIGARGS); 
SIGARGSCO) := SIGARGS(O] + 2; 
END; 


{ + 

et continue editing if this was a bad error. 

IF (SEVERITY IN C STSSK_ERROR, STSSK_SEVERE J) THEN 
EDITING := FALSE; 


{ + 

Unwind if it's a file-not-found (only for definition file). 
etperutes, let EDF exit on bad errors. 

IF ¢ 

((SIGARGS(5] = RMSS$_FNF) OR (SIGARGS(5] = SSS$_NOSUCHFILE)) 


(NOT ANALYSIS_ONLY) 
) THEN 
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-- 
Keep editing; 

Make the FDL error informational; 

Tell the user what file wasn't foun d; 

un ind (pop up) to the caller of the handler establisher. 


IF NOT (AUTO_TUNE) 
THE 


N 
BEGIN 
EDITING := TRUE; 
NEW SEV := STS$K_INFO; 
LIBSINSV (NEW_SEV, STS$V_ SEVERITY, STS$S_SEVERITY, SIGARGS[1)); 
CHF FLAGS := 0; 
WRITEV (OUT_LINE.CRLF); 
LIBSPUT_LINE(OUT_LINE ene. CHFFLAGS); 
FILENAME _PTR _:= SIGARGSC3]::DESCRIPTOR_PTR; 
WRITEV (Our ar iNe CRLF _SH IFT. 
EILENAME PTR * .DSCSA-POINTER®: :F LLENAME_PTR*.DSC$W_LENGTH, 
Wh 
LIBSPUT _L LINE (OUT _LINE ,ONE,CHFFLAGS); 
ELSE 
BEGIN 
SIGARG 6SC02 := SIGARGS(O) - 2; 
$PUTM mse (316A RGS); 
SIGARGSCO) := SIGARGSCO) + 2; 
UNWIND: 


ew: { if sigargs } 
The function value is ignored if we did an unwind. 
RMS_INPUT_COND_HANDLER := SS$_CONTINUE; 
END; { IF NOT UNWINDING } 
END; { RMS_INPUT_COND_HANDLER } 


ee a es = — _ 
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104-000 Source Listing g7360 18 41 98:43 DL AKSVMSMASTERY EEDF “SRCJEDF CHF PAS; 1 (HS 
0 85 { ++ . | 
4 33 SYSSINPUT_COND_HANDLER == Check for recoverable typing errors. 
i zr This routine handles Pascal input errors caused by user garbage. 
2 1 CALLING SEQUENCE: 
9 ; LIBSSIGNAL; 
O36¢ INPUT PARAMETERS: | 
6 SIGARGS | 
0368 ME CHARGS 
0369 | 
0370 IMPLICIT INPUTS: 
0371 
ore FONTROL_2Z 
037 
0374 ANSI_REVERSE 
0375 
0376 OUTPUT PARAMETERS: 
0377 
0378 SIGARGS 
0379 MECHARGS 
0380 
0381 IMPLICIT OUTPUTS: 
pene 
038 CONTROL_ZEE_TYPED | 
0384 ERR_CHAR 
0385 QUESTION_TYPED 
0386 TEMP _FULC_PROMPT | 
0387 SYSSTNPUT ERROR 
ho4 SYSSOUTPUT:, if the error is one we can handle. 
0390 ROUTINES CALLED: 
0391 
3454 DELAY 
039 LIBSMATCH_COND | 
0394 SYSSUNWIND | 
0395 
oe9 ROUTINE VALUE: 
344 SS$_RESIGNAL, if not unwinding. N/A if it is unwinding. 
0400 SIGNALS: | 
0401 
rt Resignals if it can't process the signal. 
0404 SIDE EFFECTS: 
0405 
0406 none 
0407 
0408 -- } 
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CASYNCHRONOUS) FUNCTION viet COND_HANDLER ( 


STGARGS : SIGARR: 
VAR MECHARGS : MECHARR 
) : INTEGER; 
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oOo 
nm 
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VAR 
TEMP_UNSIGNED 
BEGIN 


: UNSIGNED; 


{ + 
If_ we're already unwinding, skip everything. 


IF NOT ¢ 
(LIBSMATCH COND (SIGARGSC1,SS$_UNWIND)) 


BEGIN 
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{ + 
as for bad typed input. 


IF ¢ 

5 RTCA CONS (SIGARGSC1],PAS$_GETAF TEOF )) 
ze pb SSSHATCH COND (SIGARGSC1],PAS$_SUBASGVAL) ) 
Ct af, TOSRATEH_ COND (SIGARGSC1],PAS$_AMBVALENU) ) 
ert sb ESHA CH COND (SIGARGSC1],PAS$_INVSYNENU) ) 
Ree _) SESRAT CA COND (SIGARGSC1],PAS$_INVSYNINT)) 
ore | 5 SORTER Come (SIGARGSC1],PAS$_INVSYNREA) ) 
pee$ (LIBSMATCH_COND (SIGARGS(1],PAS$_INVSYNUNS) ) 
gece (LIBSMATCH_COND (SIGARGSC1),PAS$_NOTVALTYP) ) 
Dees (LIBSMATCH_COND (SIGARGSC1),EDF$_CTRLZ)) 
Oeee (LIBSMATCH_COND (SIGARGSC1),EDF$_AMBIG)) 
peo af, IBSRATCH COND (SIGARGSC1),EDF$_BADSYNTAX) ) 
ok (LIBSMATCH_COND (SIGARGSC1),EDF$_BADVALUE) ) 
peed (LIBSMATCH_COND (SIGARGSC1),EDF$_NODEF AULT) ) 
peoe ) THEN 
bc64 BEGIN 
be CONTROL_ZEE_TYPED := LIBSMATCH COND (SIGARGS(1],EDFS$_CTRLZ); 


04-000 Source Listing Se ee ee ce i 


0467 
0468 { + 
6296 Fudge for top-level “2 exiting. 
0471 IF MAIN_LEVEL THEN 
047 MAIN_CTRLZ := CONTROL_ZEE_TYPED; 
0474 
0475 { + | 
Bees If it was “*Z, don't look at the input string - there's nothing there. | 
0478 IF CONTROL_ZEE_TYPED THEN | 
0480 ERR_CHAR := CONTROL_Z 
0481 
pees ELSE 
048 
0484 { + 
tH Get the offending character to see what it is. 
0487 ERR_CHAR := INPUT_STRING(1); 
| 

0489 { + | 
Beee One ‘‘garbage"’ character is ‘'?'' = which causes flags to get set. 
ahs IF ERR CHAR = QUESTION_MARK THEN 
0494 BEGIN 
0495 
0496 QUESTION_TYPED := TRUE; 

97 TEMP_FULC_PROMPT := TRUE; 
0498 
0499 END 
0500 
0501 ELSE 
0502 
0503 QUESTION_TYPED := FALSE; 
0504 
0505 { + 
9306 Tell the user he messed up, if he didn't type control/Z or ‘'?"'. 
F403 IF NOT ( CONTROL_ZEE_TYPED OR QUESTION_TYPED ) THEN 
0510 BEGIN 
0511 
patg { + 
Getz Fetch the token that messed up. 
0515 TEMP_ DESCRIPTOR := NULL_STRING; 
0516 ja “ntless DSCSA_POINTER := PARAR_BLOCK. TPASL _TOKENPTR; 
0517 TEMP := PARAM-BLOCK. TPASL- TOKENCNT; 
g2i8 TEMP DESCRIPTOR, DSCS$W_LENGTH := TEMP _ONSIGNED: : WORD; 
0520 { + : 
b2 1 Print out the appropriate error message. 
0853 IF (LIBSMATCH_COND (SIGARGSC1],EDFS_NODEFAULT)) THEN 
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WRITEV (OUT_LINE, SHIFT, 
*" You must provide an answer here (or *Z for Main Menu). ‘) 


ELSE IF (LIBSMATCH_COND (SIGARGSC1],EDFS_AMBIG)) THEN 


WRITEV (OUT_LINE, SHIFT 

0 TEMP_DESCRIPTOR.DSCS$A_POINTER*: 
TEMP. DESCRIPTOR. bstsu LENGTH, 

**' 45 ambiguous in thts context. ') 


ELSE IF (LIBSMATCH_COND (SIGARGSC1],EDF$_BADSYNTAX)) THEN 


WRITEV (OUT_LINE,SHIFT 

"8 TEMP_DESCRIPTOR. DSCSA POINTER*: 
TEMP” DESCRIPTOR. DSCSU_LENCTH He 
*** contains a syntax Nose ) 


ELSE IF (LIBSMATCH_COND (SIGARGSC1],EDF$_BADVALUE)) THEN 


WRITEV COUT LINE, SHIFT 
" TEMP_DESCRIPTOR.DSCSA_POINTER®: 
TEMP_ DESCRIPTOR. DSC$W_LENGTH, 
G5 not appropriate” ‘ this context. '); 
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4 
" 
4 CHF FLAGS SCRSM_REVERSE; 
5 LIBSPUT_LINE (OUT ‘LINE raf CHFFLAGS); 
3 STRSFREE1_DX (INPUT_DESC 
5 { + 
: Let the user see the message. 
3 LIBSWAIT (2.0); 
5 { + 
Gi ‘y the user some help. 
QUESTION_TYPED := TRUE; 
TEMP_FULC_PROMPT := TRUE; 
END; 
056 
0566 { + ; ; 
O2et Flag the error and unwind back to the caller of the establisher. 
0369 SYS$INPUT_ERROR := TRUE; 
0971 IF NOT CONTROL_ZEE_TYPED THEN 
ba78 { + : 
Bee Gnyind (pop up) to the caller of the handler establisher. 
0576 SUNWIND; 
Sere 
578 END; 
0579 
0580 { + 
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0581 If we unwound, the function value will be ignored. 
pats If_we didn't, we couldn't handle the error, so resignal. 
Beee SYSSINPUT_COND_HANDLER := SS$_RESIGNAL; 
p28 END; { IF NOT UNWINDING } 
0388 END; § { SYSSINPUT_COND_HANDLER } 
0590 END. 
0591 { End of file: SRCS:EDFCHF.PAS } 
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-TITLE EDFC 
- IDENT v06-000\ 


-PSECT SCODE,PIC,CON,REL,LCL,SHR,EXE,RD,NOWRT,2 
C.AAA: .LONG *x14,0,0,0,0,0,0,0 
C.AAB: .ASCII \ will be created. \<0><0><0> 


C.AAC: .ASCII \ You must proy'ée an answer here (or “Z \- 
\for Main Menu). 


- 


00000000 00000000 6° 
65 72 63 20 


65 f7 93 Ge 
$9 A SE 2 


oo 
oo 
oo 
oo 


oo 


oo 


RNP NPP NIPNININI NO ANIA NO— 


000 
30 
75 
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-ASCII 
6F 75 67 69 SCI] \'' is ambiguous in this context. \ 


6— 6F 63 20 


60 
69 
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wn ONew UM 
OMAEAOL NOAM 


WOMMOOVTMUIMMNDO 


I \ "\<0><0> 

I \" contains a syntax error. \<0> 

I \ “\<0><0> 

I \"' is not appropriate in this context. \ 


61 20 73 
2—E 72 6F 


6E 
72 
70 70 61 20 74 
6E 
2E 


WO MNOOOWO—"MNOMUOMOO 


NSN OO 
oom wo 
o 
o 


68 74 20 


~r 

= 
oe NOACOMNNOSOMNOCOO 
HNN ANN NONMMNMNAAUIGE NOOO 
WMOMIM ON & OOMOU LS OF NOOO 
SOOMOONMOWOMONM®BWOOMOOS 


CTRLZ — Paes ; 0139 
6 ; 0149 


0000 
00000920 =F 
0 04 


04 Ad 


000000006 E 


nm 
oO 


- 


- 


0" 
0" 
0' 
Q° 
Q' 
Q' 
Q' 
Q' 
0° 
Q' 
0 
0" 
Q' 
Q' 
Q' 
Q' 
Q' 
Q' 
Q' 
Q' 
Q' 
Q' 
Q' 
Q' 
Q' 
Q' 
0 
Q' 
0 
Q' 
0 
0 


Ov 
00838048 = 8F 
0 04 


000000006 Ff 9¢ 
06 BC 0 


~ 

» 
—_ 
~™ 
~ 

Bees 
oo 
at 
oo 
on 


04 
000000006 
04 


A 4(R12) 
EF CALL oe’sliaa ee 
BC #2,a4(R12) 
00004140 rn 
4's 44 444 EF 
00v00000000G_ EF 
000000006 44 
A 


v 
Cc 
ad 

= 

> 

ie] 
Sete 
oo 
oe 
+o 


CALLS #1 ‘Lipsuart 
4$: BBS : et TO_TUNE ,9$ 
CALLS DFSRESET SCRO 
BB 10,DEST. IS. TERMINAL, 9$ 


MAROONOOCVITOM"OVIOM"OCTO 
~” 


OW ODOC CONVO "OO "oO 


a 
s 
S58 


00v000000006 


oman 
—@ 


ao "o" 


00v 


000000006 


00000000G_ EF  BASSCLOSE2 


YSSUNWIN 
435° athe NCOND _HANDLER : 0202 


COSSOCOOSCOSOOOSOSOOSOOO0O 


7) 

= 

-- 
22222" 


000000006 fF 


; Routine Size: 143 bytes, 


Generated Code 


000000006 


000000006 


000000006 


04 


eeted * ty 
00000100 
OOVFFFFFE26 


00018292 
00000910 


03 000000006 

03 000000006 
000000006 

7€ 04 


FC 
000000006 


Routine Base: S$CODE + OOODA 


50 


63 


80000000 
AD 


o 
oS 
So 


ranted * er 


So 
So 


OOOCOMM OVO Y FPOOMOyY 


NMNOMNMLSOOOCOCNONOWT™T"ON— 


=< < 


< 


OF POF PMUUOWUlCOFO 
_ 


'MMIOOMO 


tt OWN OO FM ODO OO ONW "OD M2 NOOO "OME 


<< 
4 ws WENO 9 $99 OM FTO NSOOT9IN $99 NOC OO OWN nOUTTOF 


2SS=5 


o*ococoonm 
OP oP ol: teal = bea] 


MOMMMS SP MODWDOOOOCOSOO 
oOo 


MOMBALONT FW OO 


a 99:55:85 


RET 


RMS_INPUT COND MADE ER: 
.@OR “M<R2> 


SUB 
PUSHAL 
MO 


l HF Page 16 
ER: LEDF .SRCJEDFCHF.PAS;1 (8) 


# -LIBSMATCH, COND 
RO..¢ 


1 
#1,RMS_INPUT_ERROR 


Re 
AMOWOW 


4(R12) 

oo °sreanyinse 
#2,€4(R12) 
SEVERITY ,#256 


ANALYSIS_ONLY,.+3 
AUTO_TUNE,.+3 


—B— Bs VL OMEMNO 
on denn’ aa om 


Ax 


#3 NEW sev 
oy oS CRT ),~ (SP) 


7c. 


EDF CHF 
v04-000 


; Routine Size: 470 bytes, 


Generated Code 


000000F F 4 1) 
00000000G_ EF 4 £8 
ope EF OF 
[in 
FB AD FF F 0 
FC = AD 00 tt EF E 
F A oF 
000000006 FF 0 F 
8 4 A Dd 
5 f A Dd 
944444 G EF 4 
00000006 f 4 
00000000G EF F 
000000F F F 60D 
000000006 fF 4 £68 
E 3 3¢ 
dD 
4 H oF 
QOOO0OF F F 0D 
000000006 EF 9F 
000000F F F 60D 
00000000G_ EF 06 FB 
FFFFFD4S EF 9F 
11 DO 
00000000G EF 9F 
000000F F F 0D 
00000000G_ EF 4 FB 
Q0000000G EF 9F 
Boge neeee HH oF 
F8 AD B852 OF F F 4 
FC AD 00000000G EF E 
F8 ry oF 
00000000G_ EF 0 FB 
gov 11 
06 BC : ee 
0 oo 
0 oD 
0 00 
04 aC 00 
00000000G_ EF 4 Ff 
06 BC ‘ C 
DOD 
$ DOD 
000000006 fF 4 
0 1 4 


Routine Base: SCODE + 00169 


ores 
5E gs C 
00000920 FOF 

50 A 90 

4 A F 

00000000G_ EF 0 FB 


fale le lela leo lolo lo lolololololololololelololololololololeololololol ole ololelolelelolol ol oleioie) 


ee a ee a ee a a ee ee a a a a ad aed ad ad = OOO 


GCVOQOOOowWewTw>>>r> 


1 


wor 


te 
vw 


O00 0909 SII NIO OUI & EAPO | = OO FM 


FSO Wer DO ard Orde eve NOY FMOMNTM QWOM DD EMO OF ONVDMWOOMOW™ 


Be 99:38:85 


VAX-11 Pascal V 
DISKSVMSMASTER: 


earn 
v0vo 


—— 
woo 


PUSHL 4255 
CALLS #4,PAS$WRITEV_STRING 
PUSHAB CHFFLAGS 
PUSHAB ON 

VL: # 186974463, -8(FP) 
MOVAB OUT_LINE,-4(FP) 


PUSHAB -8(FP) 


Frege ee 
EDF .SRCJEDFCHF .PAS; 1 


mov) Aig) —s 
MOVE 12(R )° FILENAME _PTR 
PUSHAB CRLF_SHIFT 
PUSHL # 
rae fy gtin 
ALLS #4,PASSWRITEV_STRING 
MOV ZL (FILENAME PTRY, =(SP) 
PUSHAB @4(F ILENAME_PTR) 
PUSHL # 
PUSHAB OUT .LINE 
CALLS #6,PASSWRITEV_STRING 
PUSHAB C.AAB 
PUSHL #i7 
PUSHAB OUT .LINE 
CALLS  #4,PASS$WRITEV_STRING 
puss gris 
MOVE 9186974463, -8(FP) 
VAB T LINE ,-4(FP) 
PUSHAB -8(FP) 
CALLS #3,LIBSPUT_LINE 
138:  SUBL2 #3 ,44(R12) 
PUSHL # 
PUSHL #9 
PUSHE &¢RI2) 
CALLS #4, SYSSPUTMSG 
ADDL2 = #2. a4 
18: pusMt 
CALLS #2,SYSSUNWIND 
17$:  MOVL § #1.RMS_INPUT_COND_HANDLER 
18$: RET 
SYSSINPUT_COND_HANDLER: 
.QOR 


~ 9McR2,R3,R4,R5,R6,R7 
#8. SP 


#28 $ 
MOVL $i8) »,RO 
#2, LIBSMATCH_COND 


-RB,RO,RIO,R11> 


ra” 


; 0330 


- —s 


_- 


COCESOOCOCOOOOOODOS <m 


H 2 
EDF CHF 16-Sep-1984 :48: VAX-11 Pascal V2.4-277 Page 18 
v04-000 Generated Code mae 99:98:85 PE ESUMSAASTER FEDF -SRCIEDE CHE .PAS: 1 (a5 
03 9 00019 BLBC ~——s«aRO,. #3 
00 by 5 1¢ RW Roe 
00838040 8F DF OO0TF PUSHAL #1176877 : 0432 
es 8 Ni BP 3 PUSHAB tires 6 
00000000G_ EF ; fe 6 CALLS £6 ok 0RA TCH Coe Q 
FC AD 9 OvB RO, -4 (FP) 0 
00838038 BF OF 99 PUSHAL #1763768 0 
50 04 aC D0 D OVL 4(R12),R0 
04 AO 9F 00041 PUSHAB 4(RO) 
000000006 EF : FB 0044 CALLS #2,LIBSMATCH_COND 
F8 AD 9 Beek OvB RO,- at 8 
00838030 8F OF 4F PUSHAL #11763760 
50 04 AC 00 00055 OVL 4(R12),R0 0 
04 AO 9F 00059 PUSHAB 4(RO) 0 
000000006 EF 08 FB 005¢ CALLS #2 L IBSMATCH_COND 0 
4 90 0006 ova RO,R4S 0 
00838028 BF ODF 00066 PUSHAL #176375 0 
50 04 ac 00 9006¢ OVL 4(R12),R 0 
04 AO OF 00 9 PUSHAB 4(RO) 0 
000000006 _ EF 02 FB 0007 CALLS #2. [BSMATCH_COND 0 
55 50 90 OO07A OVB RO.R 0 
00838048 BF OF 9070 PUSHAL #1763787 0 
50 04 AC 00 0008 OVL 4(R12),R0 0 
04 AO 9F 00087 PUSHAB 4(RO) 0 
000000006 EF 08 FB OO0BA CALLS #2,LIBSMATCH_COND 0 
6 50 90 00091 OVB R Re 0 
0021875c BF DF 00094 PUSHAL #2197340 0 
50 06 ac 00 90094 OVL  4(R12),RO 0 
04 AO 9F O009E PUSHAB 4(RO) 0 
000000006 EF 08 FB O0A1 CALLS @# -LIBSMATCH_COND 0 
7 0 90 000A8 OVE RO.R 0 
00218754 8F ODF O00AB PUSHAL #2197332 0 
0 06 ac 00 008 OVL 4 (R12),R0 0 
04 AO oF OBS PUSHAB 4(RO) 0 
000000006 EF 92 FB 00088 CALLS #2,LIBSMATCH_COND 0 
8 90 O00BF OVE ROR 0 
0021874c BF OF 90¢8 PUSHAL #2197324 
50 04 ac 00 000¢ OVL 4(R12),R0 
04 Aad 9F 000CC PUSHAB 4(RO) 
000000006 F 4 OOCF CALLS # op Soren Soe 
9 90 00006 OVE RO.R 
00218744 BF DF 00009 PUSHAL #2197316 
50 4 A 80 Ff VL 4(R12),R0 
oo a F 3 PUSHAB 4(RO) 
000000006 F 9¢ BB E6 CALLS #2,LIBSMATCH_COND 
A 9 ED VB —s- RO. RI 
0021873c BF ODF F PUSHAL #2197308 
50 04 A pO 6 6 VL 4(R12),RO 
4 A fF FA PUSHAB 4(RO) 
000000006 f f OFD CALLS oF page 
00218734 BF OF 107 PUSHAL #2197300 
50 oe 0 001 : VL 4(R12),RO 
000000006 _ EF ce re 114 CALs 35 O BSMATCH COND 
gb g 90 00118 vB 4a : 


Generated Code 


000000006 


000000006 


000000006 
000000006 
00v000000006 
000000006 
00v000000006 
000000006 


000000006 
000000006 


000000006 
000000006 


03 000000006 
03 000000006 
ssuueee 
000000006 


000000006 


50 
F 


uw OVIDWAIMNVIVIVIVIVIVMIUIUITE UT 
o WOOOOOOoOoooo°oo" oO w 


mm MM mMmMmmmnmnn 
a OFT TWH 


MAAIVIMNVIVIVIVIIO & & OO }& oo 
PME NWO PF DUIWNMOM MOMOO™ 


-_ So 
ANNMNMHMNNHNHNO HOCK H< 
YOODOODOOOOOOOOrxzr 


OOOO COCOOOOOOOCOOOOOOOOOOOOOOOOO 


OOOO SCOCOOCSOSSOOOSOoCSCOCOSOCOSOOOOOOOODOOOOOOCOO 


FIED DRIP i ee ee a od od ot od od oh od dd 


WD OM FD VID NSM DOVMVIMOOM "WYP Worm wo 


PF OOO SII INP PA AAA MII & EE WIIIonon 


Fd 
wn 


no 


=o 
om 


ORR AMMMOOCVIOOWW > 
OD oe 


CI9BDI9 VIM vwin O— 00 00 OM OM ON OSC OWN COOD0DCDCDODCDCDODODODCO ODOT O"OUTU 
YVAN NEO FOOONMNOM O-MOOM NOMWOow 


ROMNOOOS 3 F MOON $$ OO $0 "OT MO —“DOWDWDODWDDDnmnmDMwnw "On"OW"O™ 


™"9ggnngs 


ow 
“oOone 
, 


Hes Ta | ee S13 Tk | | 


PUSHAL #2 
MOVL 4 


Mo 
~ 


004 
RO 


BSMATCH_COND 


: 


~~ 
-_ & 
moo 
Oo 


BSMATCH_COND 


:* 2a oar oo 


oo 


. DDD DDD: 
Oe ~NMO + VVOOOOCCOWWDOOe Ye Nt 


o ~w wTw 
~ 
oo 
™ N 


SMATCH_ COND 
NTROL ZEE TYPED 


N_LEVEL, 
TROL ZEE_TYPED,MAIN_CTRLZ 
#0, CONTROL_ZEE_TYPED,6$ 
QNTROL_2.ERR_CHAR 


INPUT STRING, ERR_CHAR 
ERR_CRAR QUESTION MARK 


#1,QUESTION TYPED 
#1 TEMP_FULC PROMPT 


QUESTION_TYPED 
#0, CONTROL_ZEE_TYPED,.+3 


Sug CveSTION_TYPED..¢3 


SOON nm — HK OOF ODEO NWO — Ww 


NOBORBDBHL BD 1 1 DDD BVDBWBAAwAAAal#leBwsele 


NULL STRING. TEMP DESCRIPTOR 
PARA. BLOCK $¢ ,TEMP_DESCRIPTOR+4 
PARAM~BLOCK+16, TEMP” UNSIGNED 
FMP Ons GNED, fEMP_BESCRIPTOR 
176 7 
4(R12),R 
a3} SMATCH_COND 
+ Sat fable 
ouf LINE 
SHIF 


a 
OUT_LINE 


14 8 


ahd 208 od 288 ods 44 ods 28k Wks 8 


COSCOOSSOSSOSOSOSOSSSOSDSOOOOCOC OOOO OOO OOO OOOO oCoCO 


oes es es ee ed a ee OO Oe od Od Oe OO od od oe 28s 28 


2 
ibege -1984 748: VAX-11 Pascal V2.4-277 Page 20 El 
Generated Code 730071382 99:98:83 DLEKSUMSMASTER FEDF -SRCJEDF CHF .PAS;1 (5 - vi 
000000FF F DD 0024 PUSHL #255 0 
000000006 EF 5 fe CALLS #4,PASSWRITEV_STRING 0: 
FFFFFA97 EF 9F 8 PUSHAB (.AAC : 
8 pp : PUSHL #56 
900000006 i F 6 PUSHAB OUT_LINE 0: 
0 FF F DD 6 PUSHL 5 Q. 
000000006 EF 4 §B CALLS #4,PASSWRITEV_STRING 0: 
0000v 31 0 BRW 3§ 0. 
00838028 8F OOF 76 14$: PUSHAL #1763753 3 0528. 0: 
0 4 AC 00 O027C MOVL 4(R12),R 0: 
06 AO 9F 00 9 PUSHAB 4(RO) 0) 
000000006 FF 98 FB 0 CALLS #2, LIGSMATCH.COND 0) 
3 § A BLBS RO,.* 0: 
0000v 31 0028D BRW 16$ 0' 
000000006 EF B4 0290 CLRW OUT_LINE : 0530. 0: 
000000006 EF F 00296 PUSHAB SHIF 0: 
4 Dd 0029C¢ PUSHL #4 | 0. 
000000006 EF OF 0029E PUSHAB our LINE 0: 
000000F F F DD 0024 PUSHL #25 0' 
00000000G_ EF 04 FB OO2AA CALLS #4,PASSWRITEV_STRING 0 
FFFFFA76 ai 9F 00281 PUSHAB C.AAD 0: 
2 oD 99 87 PUSHL @# | 0: 
000000006 EF 9F 00289 PUSHAB our LINE | 0. 
000000F F F DD O002BF PUSHL #255 0. 
000000006 EF 04 FB 002C5 CALLS #4,PASS$WRITEV_STRING 0: 
— 000000006 EF 3C 00 c¢ MOV2WL TEMP_DESCRIPTOR,-(SP) 0. 
0 DD 0020 PUSHL #0 0: 
50 00000004G EF D0 00205 MOVL TEMP_DESCRIPTOR+4 RO 0) 
60 9F 0020C PUSHAB (RO) 0: 
OOOOOFF 8F ODD 99 DE PUSHL #255 0 
00000006 EF 9F 00264 PUSHAB ou! LINE | 0 
000000F F F DD OOZEA PUSHL 5 0 
000000006 EF 6 FB 002F0 CALLS #6,PASSWRITEV_STRING 0 
FFFFFA34 F OF 0027 PUSHAB C.AAE 0 
0 0D 002FD PUSHL #32 | 0: 
000000006 EF 9F OO2FF PUSHAB ou! LINE 0} 
000000F F F DD 00305 PUSHL 5 0: 
000000006 _ EF ootey St 8 3 CALLS 44 ,PASSURI TEV, STRING g: 
00838030 $f DF 00315 16$: PUSHAL #11763760 ; 0535 | 9: 
50 4 ac 00 9 aT) MOVL 4(R12),RO 
4 AO OF 1F PUSHAB 4(RO) 0: 
000000006 Fe ce 2 CALLS Fee ieee 9 
oodov § C BRW 18$ 0: 
900000006 f B4 O32F CLRW OUT_LINE : 0537 0) 
00000006 FF F 5 PUSHAB SHIFT 
4 bb B PUSHL #4 | 
900000006 f F SHAB OUT_LINE | 
00000F F F OD PUSHL #255 
000000006 EF anaes 4 FB 3 CALLS, ‘ jPASSWRITEV_ STRING | 
6 pp : PUSHL #2 
900000006 f F PUSHAB OUT_LINE 
FF F OD E SHL #255 
000000006 gf 4 fB CALLS #4,PASSWRITEV_STRING 
E 000000006 EF 3¢ r) MOVZ2WL TEMP_DESCRIPTOR,-(SP) 


EDF CHF 16-Sep- VAX=-11 Pascal v2. e 21 
v04-000 Generated Code g- see7} 382 0: 48: 3 DISKSVMSMA TER: eeheeee SRCIJEDF CHF .PAS;1 Pags 
00 oD if PUSHL #0 
50 000000046 EF D0 0037 OVL _ TEMP_DESCRIPTOR+4,RO 
0 9F 0037B PUSHAB (RO) 
QOOOFF 8F pp £0 PUSHL #255 
0 0 00G EF 9F PUSHAB OUT_LINE 
0 FF F 0D 9 PUSHL #255 
000000006 EF 6 FB F CALLS PASSWRITEV_STRING 
FFFFF9B9 FF 9F 00396 PUSHAB (.AAG 
B DD 0039C PUSHL #27 
900000006 F 9F 0039E PUSHAB OUT_LINE 
000000F F DD OO3A4 PUSHL 
000000006 F 00 te fe at aes Lf PASSWRITEV_STRING | 
00838038 8F ODF 003B4 18$:  PUSHAL #11763768 : 0542) 
5C 04 AC DO OO3BA MOVL 4(R1 yor R12 
04 AC OF 003BE PUSHAB 4(R1 | 
000000006 FF 08 FB 003¢1 CALLS AeLie SMATCH_COND 
3 : 0038 BLBS RO,.¢ | 
0000v 31 00 CB BRW 235 | 
000000006 EF 84 O3cE CLRW  OUT_LINE : 0544 
000000006 FF OF 00 D4 PUSHAB SHIFT 
4 dD Raph PUSHL 
000000006 cf 9F 003D PUSHAB OUT_LINE 
QOOOOOF F F DD OO03E PUSHL 
00000000G EF 04 FB O035E CALLS #4 ,PASSWRITEV_STRING 
FFFFF97C Fe OF OOSEF PUSHAB C.AAH 
2 DD OO3F5 PUSHL #2 
000000006 EF 9F 003F7 PUSHAB our LINE 
OOOOOOFF  8F DD 003FD PUSHL 55 
000000006 EF 04 FB 00403 CALLS  #4,PASS$WRITEV_STRING | 
7E 00000000G EF 3C O040A MOVZWL T MP DESCRIPTOR, -(SP) 
00 dD 00411 PUSHL # | 
50 000000046 EF D0 00413 MOVL _- TEMP_DESCRIPTOR+4,RO 
0 OF OO4IA PUSHAB (RO) 
QOOOOOFF 8F DD 0041C PUSHL #255 
900000006 F 9F 004 : PUSHAB OUT _LINE 
OOOOOOFF 8F DD 004 PUSHL 
000000006 EF 6 FB 004 ‘ CALLS #6,PASS$WRITEV_STRING 
FFFFFO3A F SF 004 PUSHAB C.AAI 
6 dD 04 B PUSHL #38 
900000006 F 9F 004 p PUSHAB OUT_LINE 
OOOOOOFF 8F DD 0044 PUSHL #25 
00000000G_ EF 4 4 0449 CALLS #4 ,,PASSWRITEV_STRING 
000000006 _ EF 2 p 4 9 23$:  MOVL #2.CHFFLAGS : 0549 
0000 906 EF F 004 PUSHAB CHFFLAGS : 0550 
00000006 EF 9F 004 p PUSHAB re 
F8 AD ‘ OOF F F 0 46 MOVL #1 wth oe mS 
FC OAD 000096 EF 9E 004 8 MOVAB mk 
F8 AD 9F 004 PUSHAB 
000000006 _ EF 03 FB 00476 CALLS.) # LIBSPUT_LINE 
000000006 EF 9F 470 PUSHAB INPUT DESC : 0551 
000000006 EF 1 FB 004 CALLS TRSFREE1_DX 
00004100 8F OF A PUSHAF 4 13" : 0556. 
G EF Ee. : CALLS #1,LIBSWAIT | 
G EF 1 49 MOVE #1,QUESTION TYPED > 0561. 
0 G EF 1 rH) MOVB #1, TEMP_FUL @ PROMPT : eb 
0 G EF 1 90.0045 258: Move #1. SY SSINPUT™ “ERROR : 


2 
VO4=000 Generated Code "$23ep-1986 P9:98:85 — SEScSUwsmaSeRsGeprssacaercur.pas:1° 8s °° 


00v000000006_ EF #0, CONTROL_ZEE_TYPED,29$ : 0571 
: 3; 0576 
000000006 EF y $¥SSUNWIND 
0 0978 : #2528, SYSSINPUT_COND_HANDLER : 0584 
04C4 308: ; 0588 


; Routine Size: 1221 bytes, Routine Base: SCODE + 0033F 
00804 


] 


| 
| 
| 


M 2 
EDF CHF 1 =pe0n 13%? 00:48:83 VAX-11 P 
v04-000 Pascal Compilation Statistics -$ep-1984 15:35:59 Disk SvMsa 
COMMAND QUALIFIERS 
PASCAL/MACHINE /NODEBUG/NOCHECK/LIS=LIS$:EDF CHF /OBJ=OBJ$:EDFCHF MSRC$:EDFCHF 


/CHECK=(NOBOUNDS ,NOCASE SELECTORS ,NOOVERF LOW ,.NOPOINTERS , NOSUBRANGE ) 


/DEBUG=(NOSYMBO OL NOT NOTRA EBACK) 
/ENVIRONMENT= eH DF .OBJJEDF CHF .PEN; 1 
/LIST= $25 38 OA UIs 4 


8: BCeDr ris SJEDECHE .L 


al Hr rep 4 Poge 
STER: EDF .SRCJEDFCHF.PAS;1 (8) 


J31 
/NOCROSS_ REFERENCE ERROR LIMIT= SO ON 7NOG. FLOATING /MACHINE_CODE /NOOLD_VERSION /OPTIMIZE /NOSTANDARD /WARNINGS 


COMPILER INTERNAL TIMING 


Phase Faults CPU Time woneser Time 
Initialization 71 00:00.4 9:96 -2 
Source Analysis 617 00:12.8 02:37.5 
Source List 40 00:00.9 et ae 4 
Tree Construction 76 00:00.5 0:01. 
Flow Analysis 8 00:00.1 8860'S 
Profit “hralyst 14 82:80 -§ 00:00. 
Context Analysis 614 00:04. 00:07.4 
Name Packing 2 00:00.1 00:00.1 
Code Selection 21 83:89 -§ 00:01.8 
Final 145 00:02. 00:08.3 
TOTAL 1612 00:22.2 03:01.2 
COMPILATION STATISTICS 
CPU Time: 00:22.2 (1596 Lines/Minute) 
Elapsed Time: 97291 2 
Page Faults: 1612 


Compilation Complete 


IGI TI 
ONFIDENTIAL AND PROPRIETAR 
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cr 
oe 
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0126 Gaxt dns vaco 


